* lucid.el (switch-to-other-buffer): Build the list of acceptable

	buffers properly.

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 35404b967e699e00c9943daa62c482d70c89d12b..7a8ff4789bac7e2ed4654cf8aa5d0cf4de229f48 100644 (file)
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -121,10 +121,10 @@ bottom of the buffer stack."
          (apply 'nconc
                 (mapcar
                  (lambda (buf)
-                   (if (= (string-to-char (buffer-name (car (cdr tail))))
-                          ?\ )
+                   (if (= ?\  (string-to-char (buffer-name buf)))
                        nil
-                     (list buf)))))))))
+                     (list buf)))
+                 (buffer-list)))))))
 
 (defalias 'find-face 'internal-find-face)
 (defalias 'get-face 'internal-get-face)